home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / mail / YAM22.lha / YAM2.2 / Rexx / MiamiOnline.yam < prev    next >
Text File  |  2000-04-19  |  423b  |  19 lines
  1. /* MiamiOnline.yam - Go online in Miami                                */
  2. /* $VER: MiamiOnline.yam 1.0 (1.10.98) © 1998 by M.Beck <mbeck@yam.ch> */
  3.  
  4. miamipath = "MIAMI:Miami"  /* Change this path if required */
  5.  
  6. OPTIONS RESULTS
  7. IF ~SHOW('P', 'MIAMI.1') THEN DO
  8.    ADDRESS COMMAND
  9.    'Run <>NIL:' miamipath
  10.    'WaitForPort MIAMI.1'
  11. END
  12. ADDRESS 'MIAMI.1'
  13. ISONLINE
  14. IF RC=0 THEN ONLINE
  15. ISONLINE
  16. IF RC=0 THEN EXIT 5
  17. HIDE
  18. EXIT 0
  19.